Boa noite!!

Eu sinto muito mas as células mescladas após a cópia e ao executar o comando

Sub FreezeAleVBA()
Range("2:2").Select
ActiveWindow.FreezePanes = True
End Sub

que faria o congelamento, fica ineficaz.

Att

Opa Alexandre muito obrigado, é um pena mesmo não copiar as celulas mescladas e as congeladas,
Mas vou dar um jeito de adaptar com oque conseguimos.

valeu mesmo obrigado .

Boa tarde!!

Mas......não é impossível reverter isso, você pode criar uma VBAgambiarra...
http://msdn.microsoft.com/en-us/library ... =office.11).aspx

Você teria que remover congelar depois mesclar.

Obs: De todo o meu coração, células mescladas é a coisa mais idiota que alguém usaria em uma guia (planilha), quando envolve VBA

Att

Alexandre já deve estar sem paciência comigo rs..

mas acho que já estamos quase lá

tirei toda a formatação da planilha macros e congelamentos. mesmo assim ela não copia a formatação da celula, na verdade ela copia como quebra de texto automaticamente.
se me der um help nessa parte ai , vou estar com a planilha no formato bom para trabalho.

se puder me fazer esse ultimo favor.

obrigado

aquele link que me mandou , não abriu .

Boa tarde!!

Desculpe quanto ao link.
http://msdn.microsoft.com/en-us/library ... 97310.aspx
http://www.ambienteoffice.com.br/excel/ ... _formulas/

tirei toda a formatação da planilha macros e congelamentos.

Você quer dizer, que se não houver essas células mescladas, ainda sim, você não está tendo o resultado que pretende?
Att

a planilha esta perfeita, como essa planilha vai ser para um usuário final , que tem menos conhecimento de Excel do que eu , quero que ele mecha o menos possível,
oque acontece quando clona, o campo nome do cliente por exemplo ele esta assim

nome do cliente quando clona a planilha clonada fica assim |ne do Clie| ou seja é só ir entre as duas colunas e dar um duplo clique, para assumir o tamanho do texto, mas isso já é o suficiente para o usuário se perder rs...

o que acontece é isso espero que tenha compreendido,

obs, depois que me falou do mesclado vi que realmente não havia necessidade das células mescladas

Boa tarde!!

Não precisa ser da forma como vu postar, mas quando desejar Ajustar Colunas Automaticamente, faça assim.

Sub Ajustar_Colunas_Automaticamente()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Cells.EntireColumn.AutoFit
        Next ws
End Sub

Obs: Não precisa ter mais uma Sub, para isso você pode usar de outras formas.

Att